home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / pro Fit 5.0.1 demo (fpu).rsrc / TEXT_128_EPSF dict 40.txt < prev    next >
Encoding:
Text File  |  1996-09-30  |  1.5 KB  |  45 lines
  1. proFitdict begin
  2. /Pbd {bind def}def
  3. /Pm {moveto} def /Prm {rmoveto} def /Pl {lineto} def
  4. /Ps {gsave} def /Pr {grestore} def
  5. /Pt {stroke} def 
  6. /Pw {setlinewidth} def /Pc {setrgbcolor} def 
  7. /Pg {setgray} def
  8. /Pfb {newpath dup 5 -1 roll Pm 3 1 roll 
  9. dup 3 -1 roll Pl Px Pl Px Pl fill}Pbd
  10. /Pfr {newpath 4 -1 roll dup 5 1 roll Pm 2 1 roll 
  11. dup 3 1 roll Pl Px 2 1 roll Pl Px 2 1 roll Pl fill}Pbd
  12. /Po0 {3 -1 roll exch 2 mul add 3 
  13. div 3 1 roll 2 mul add 3 div exch}Pbd
  14. /Po1 {4 copy 10 2 roll Po0 8 2 roll Po0 6 2 roll curveto}Pbd
  15. /Po2 {4 copy 3 -1 roll add 2 div 3 1 roll add 2 
  16. div exch 2 copy 6 -2 roll 10 4 roll Po1}Pbd
  17. /Pcol1 {1 exch sub 4 -1 roll mul 1 exch sub 3 1 roll}Pbd
  18. /Pcol {1 exch sub dup dup currentrgbcolor 
  19. Pcol1 Pcol1 Pcol1 setrgbcolor}Pbd
  20. /Pshow {dup dup stringwidth pop 4 -1 roll exch sub exch 
  21. length div 0 3 -1 roll 1 -1 scale ashow 1 -1 scale}Pbd
  22. /PMacEncoding 256 array def
  23. /PCSet {3 -1 roll dup 4 2 roll put}Pbd
  24. /Pfont
  25. {dup FontDirectory exch known {exch} {}ifelse pop
  26. findfont exch scalefont setfont} Pbd
  27. /Psetfont {/PName exch def
  28. FontDirectory PName known
  29. {pop}
  30. {findfont dup length dict /PDict exch def
  31. {1 index /FID ne {PDict 3 1 roll put}{pop pop}ifelse}forall
  32. PDict /Encoding PMacEncoding put
  33. PName PDict definefont pop }
  34. ifelse
  35. PName findfont exch scalefont setfont}Pbd
  36. /PsetCfont {/PCEncoding exch def /PName exch def
  37. FontDirectory PName known
  38. {pop}
  39. {findfont dup length dict /PDict exch def
  40. {1 index /FID ne {PDict 3 1 roll put}{pop pop}ifelse}forall
  41. PDict /Encoding PCEncoding put
  42. PName PDict definefont pop }
  43. ifelse
  44. PName findfont exch scalefont setfont}Pbd
  45.